home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / dos.swg / 0041_Redirect DOS I-O.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-26  |  662 b   |  19 lines
  1. {****************************************************************************
  2.  * Procedure ..... StandardIO
  3.  * Purpose ....... To allow input/output redirection from the DOS command
  4.  *                 line.
  5.  * Parameters .... None
  6.  * Returns ....... N/A
  7.  * Notes ......... Normal TP writes do not allow i/o redirection.  This is a
  8.  *                 fix for that.
  9.  * Author ........ Martin Richardson
  10.  * Date .......... May 13, 1992
  11.  ****************************************************************************}
  12. PROCEDURE StandardIO;
  13. BEGIN
  14.      ASSIGN( Input, '' );
  15.      RESET( Input );
  16.      ASSIGN( Output, '' );
  17.      REWRITE( Output );
  18. END;
  19.